Option Explicit
Sub Q_Sample002()
    Dim myRet As Long
    myRet = Shell("Notepad.exe", 1)                       'wε{
    AppActivate myRet
End Sub

